3 L$="":RESTORE
5 POKE53280,6:POKE53265,PEEK(53265)AND239
10 FORI=1TO22:READA$:NEXT:X=60:Y=57:CL=1:SC=53281
15 FORI=12288TO12350:READSP:POKEI,SP:NEXT
17 FORI=12352TO12414:READSP:POKEI,SP:NEXT
19 FORI=12416TO12478:READSP:POKEI,SP:NEXT
21 FORI=12480TO12542:READSP:POKEI,SP:NEXT
23 FORI=12544TO12606:READSP:POKEI,SP:NEXT
25 FORI=12608TO12670:READSP:POKEI,SP:NEXT
27 FORI=12672TO12734:READSP:POKEI,SP:NEXT
29 FORI=12736TO12798:READSP:POKEI,SP:NEXT
35 M=.:V=53248:FORI=2040TO2047:M=M+1:POKEI,191+M:NEXT
40 FORI=39TO46:CL=CL+1:POKEV+I,CL:NEXT
50 FORI=0TO6STEP2:X=X+25:POKEV+I,X:NEXT:FORI=1TO13STEP2:POKEV+I,Y:NEXT
60 POKEV+8,195:POKEV+10,215:POKEV+12,240
70 POKEV+16,128:POKEV+14,5:POKEV+15,Y
100 PRINT"[147]":POKE SC,1:POKEV+21,255:TA=10
110 POKE53265,PEEK(53265)OR16
145 PRINTLEFT$(L$,5)"   * * *   D I R E C T O R Y   * * *    ":RESTORE
150 A=A+1:B=B+1:READPR$:IFA>9THENTA=9
160 PRINTLEFT$(L$,B+6)TAB(TA)""A"-"PR$
165 IF B=11 THEN 175
170 GOTO 150
175 IF A>=22 THEN RESTORE:A=0
180 PRINT LEFT$(L$,22)"            DOUBLE L SOFTWARE           "
190 PRINT LEFT$(L$,24)TAB(7)"(C) ION INTERNATIONAL INC":POKE198,0:AN$=""
200 PRINT LEFT$(L$,20)TAB(8)"PRESS F1[146] OR CHOOSE NO. ";
210 GETTM$:IFTM$=CHR$(13)ANDAN$=""THEN 210
211 IFTM$=CHR$(20)THENPRINT"[157]    ":GOTO190
215 IFTM$="[133]"THENGOSUB300:TA=10:B=.:GOTO150
218 IFTM$=CHR$(13)ANDAN$<>" "THEN 225
220 AN$=AN$+TM$:PRINTAN$;"_";
221 T=PEEK(V+39):POKEV+39,PEEK(V+40):POKEV+40,PEEK(V+41):POKEV+41,PEEK(V+42)
222 POKEV+42,PEEK(V+43):POKEV+43,PEEK(V+44):POKEV+44,PEEK(V+45)
223 POKEV+45,PEEK(V+46):POKEV+46,T:FORD=1TO30:NEXT
224 GOTO200
225 AN=VAL(AN$):IFAN<1ORAN>22THENPRINT"[157]     ":GOTO190
226 AN=VAL(AN$):RESTORE:FOR CH=1 TO AN:READ PR$:NEXT CH
230 POKEV+21,0:PRINT "[147]":POKE 53280,0:POKE 53281,0
235 PRINTLEFT$(L$,15)TAB(10)"[159]LOADING "PR$"[144]"
240 PRINT "LOAD";CHR$(34);PR$;CHR$(34);",8"
250 PRINT "RUN":PRINT "[145][145][145][145][145][145][145][145][145]"
260 POKE 631,13:POKE 632,13:POKE 198,2:END
300 FORLI=6TO18
310 PRINTLEFT$(L$,LI)"                                    ":NEXT:RETURN
500 DATA FORMATTER,SELECTACHROME,DSNTGRTOR BOOT,SOUND-A-RAMA,64 WINDOWS
510 DATA FIDGITS,GATORS N SNAKES,64 BUG REP,VIC BUG REP,FLANKSPEED
520 DATA F-SPEED OVER,SCREEN DUMP UTIL,SIMPLE GUNSHOT,HELICOPTER BLADE
530 DATA SAWING WOOD,COMPLEX GUNSHOT,SPACE GUNSHOT,SEASHORE,BOINK
540 DATA NEEDLES,BIRTHDAY CALC,BIRTHDAY SIM
599 REM * A *
600 DATA 0,0,0,0,0,0,0,255,128,3,255,224,7,255,240,15,255,248,15,193,248
610 DATA 15,128,248,15,128,248,15,128,248,15,128,248,15,255,248,15,255,248
620 DATA 15,255,248,15,255,248,15,128,248,15,128,248,15,128,248,15,128,248
622 DATA 0,0,0,0,0,0
625 REM * U *
630 DATA 0,0,0,0,0,0,15,128,248,15,128,248,15,128,248,15,128,248,15,128,248
640 DATA 15,128,248,15,128,248,15,128,248,15,128,248,15,128,248,15,128,248,15
650 DATA128,248,15,193,248,15,255,240,7,255,240,3,255,224,0,255,128,0,0,0,0,0,0
655 REM * G *
660 DATA 0,0,0,0,0,0,0,255,128,3,255,224,7,255,240,15,255,240,15,193,248,15,128
670 DATA 248,15,128,0,15,128,0,15,128,0,15,135,248,15,135,248,15,128,248,15
680 DATA 193,248,15,255,240,7,255,240,3,255,224,0,255,128,0,0,0,0,0,0
685 REM * . *
690 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
700 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,128,0,3,128,0,3,128,0,0,0,0,0,0,0
715 REM * 1 *
720 DATA 0,0,0,0,0,0,0,62,0,0,126,0,0,254,0,1,254,0,0,62,0,0,62,0,0,62,0,0,62,0
730 DATA 0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,1,255,192,1,255,192,1,255
740 DATA 192,0,0,0,0,0,0
745 REM * 9 *
750 DATA 0,0,0,0,0,0,0,255,0,3,255,192,7,255,240,15,195,240,15,129,248,15,129
760 DATA 248,7,195,248,7,255,248,3,255,248,0,255,248,0,0,248,0,0,248,15,128
770 DATA 248,15,193,240,7,255,240,3,255,224,0,255,128,0,0,0,0,0,0
775 REM * 8 *
780 DATA 0,0,0,0,0,0,0,254,0,7,255,192,15,255,224,31,131,240,31,1,240,31,1,240
790 DATA15,131,224,7,255,192,3,255,128,7,255,192,15,131,224,31,1,240,31,1,240
800 DATA 31,131,240,15,255,224,7,255,192,1,255,0,0,0,0,0,0,0
805 REM * 5 *
810 DATA 0,0,0,0,0,0,15,255,240,15,255,240,15,255,240,15,255,240,15,128,0,15
820 DATA 128,0,15,128,0,15,255,128,15,255,224,15,255,240,0,1,248,0,0,248,15,128
830 DATA 248,15,193,248,7,255,240,3,255,224,0,255,128,0,0,0,0,0,0